home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / htmlso_1 / save2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-04-09  |  3.0 KB  |  114 lines
  1. VERSION 5.00
  2. Begin VB.Form Form7 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Save file"
  5.    ClientHeight    =   4860
  6.    ClientLeft      =   1275
  7.    ClientTop       =   900
  8.    ClientWidth     =   7275
  9.    BeginProperty Font 
  10.       Name            =   "MS Sans Serif"
  11.       Size            =   8.25
  12.       Charset         =   177
  13.       Weight          =   700
  14.       Underline       =   0   'False
  15.       Italic          =   0   'False
  16.       Strikethrough   =   0   'False
  17.    EndProperty
  18.    ForeColor       =   &H80000008&
  19.    Icon            =   "SAVE2.frx":0000
  20.    LinkTopic       =   "Form7"
  21.    MaxButton       =   0   'False
  22.    MinButton       =   0   'False
  23.    PaletteMode     =   1  'UseZOrder
  24.    ScaleHeight     =   4860
  25.    ScaleWidth      =   7275
  26.    Begin VB.TextBox filename 
  27.       Height          =   285
  28.       Left            =   120
  29.       TabIndex        =   2
  30.       Top             =   120
  31.       Width           =   2295
  32.    End
  33.    Begin VB.DriveListBox Drive1 
  34.       Height          =   315
  35.       Left            =   3120
  36.       TabIndex        =   6
  37.       Top             =   3720
  38.       Width           =   4095
  39.    End
  40.    Begin VB.CommandButton cancel 
  41.       BackColor       =   &H80000005&
  42.       Caption         =   "Cancel"
  43.       Height          =   375
  44.       Left            =   3840
  45.       TabIndex        =   5
  46.       Top             =   4200
  47.       Width           =   2175
  48.    End
  49.    Begin VB.CommandButton save1 
  50.       BackColor       =   &H80000005&
  51.       Caption         =   "Save"
  52.       Default         =   -1  'True
  53.       Height          =   375
  54.       Left            =   1320
  55.       TabIndex        =   4
  56.       Top             =   4200
  57.       Width           =   2175
  58.    End
  59.    Begin VB.FileListBox File1 
  60.       Height          =   3015
  61.       Left            =   120
  62.       Pattern         =   "*.htm*"
  63.       TabIndex        =   3
  64.       Top             =   600
  65.       Width           =   2295
  66.    End
  67.    Begin VB.DirListBox Dir1 
  68.       Height          =   2790
  69.       Left            =   3120
  70.       TabIndex        =   0
  71.       Top             =   600
  72.       Width           =   4095
  73.    End
  74.    Begin VB.Label path 
  75.       BackStyle       =   0  'Transparent
  76.       BorderStyle     =   1  'Fixed Single
  77.       Height          =   255
  78.       Left            =   3120
  79.       TabIndex        =   1
  80.       Top             =   120
  81.       Width           =   4095
  82.    End
  83. Attribute VB_Name = "Form7"
  84. Attribute VB_GlobalNameSpace = False
  85. Attribute VB_Creatable = False
  86. Attribute VB_PredeclaredId = True
  87. Attribute VB_Exposed = False
  88. Option Explicit
  89. Sub cancel_Click()
  90. Unload Me
  91. End Sub
  92. Sub Dir1_Change()
  93. File1 = Dir1
  94. path = Dir1.path
  95. End Sub
  96. Sub Drive1_Change()
  97. On Error GoTo 2
  98. Dir1 = Drive1
  99. Resume 3
  100. End Sub
  101. Sub File1_Click()
  102. filename.Text = File1
  103. End Sub
  104. Sub File1_PatternChange()
  105. File1.Pattern = "*.htm*"
  106. End Sub
  107. Sub Form_Load()
  108. path.Caption = Dir1
  109. End Sub
  110. Sub save1_Click()
  111. Unload Me
  112. Form6.Visible = True
  113. End Sub
  114.